perm filename CATGEN[1,LMM] blob sn#036302 filedate 1973-04-15 generic text, type T, neo UTF8
  (PROGN (LISPXPRIN1 (QUOTE "FILE CREATED ")
                     T)
         (LISPXPRIN1 (QUOTE "15-APR-73 07:27:38")
                     T)
         (LISPXTERPRI T))
  (LISPXPRINT (QUOTE CATGENVARS)
              T)
  (RPAQQ CATGENVARS
         ((FNS MERGETRIVS NORMNUMBERING ELIMINATEISOMORPHS 
               MERGEEDGELIST MAKEQUADS VALIDEDGELIST JLGEN JLGENSEQ 
               CHECKDRAW PDRAW)
          (VARS MATCHNUM STRUCTURE CATALOG-LIST GAUCHECODES)))
(DEFINEQ

(MERGETRIVS
  [LAMBDA (N1 N2 STRUC)
    (PROG (X1 X2)
          (SETQ X2 (FINDCTE N2 STRUC))
          (SETQ X1 (FINDCTE N1 STRUC))
          (DISCONNECT X1 X2)
          (FOR NEW N IN (NBRS X2) DO (DISCONNECT (FINDCTE N STRUC)
                                                 X2)
                                     (CONNECT (FINDCTE N STRUC)
                                              X1))
          (RETURN (STRUCTURE
                     FROM STRUC CTABLE =(FOR NEW X
                                           IN (CTABLE STRUC)
                                           WHEN (NOT
                                                  (EQP (NODENUM X)
                                                       N2))
                                                XLIST X])

(NORMNUMBERING
  [LAMBDA (STRUC)
    (STRUCTURE CTABLE =(SUBLIS (FOR NEW N IN (NODES STRUC)
                                             AS NEW I :=(1 99)
                                             XLIST
                                             (CONS N I))
                               (CTABLE STRUC))
               LASTNODE# =(LENGTH (CTABLE STRUC))
               UGRAPH =(UGRAPH STRUC])

(ELIMINATEISOMORPHS
  [LAMBDA (LL UNIQUE)

          (* A list of already UNIQUE graphs may be supplied 
          -- as the second argument; if not supplied NIL is 
          assumed)


    (PROG ((COUNT 0)
           (COUNT1 0))
          [PRINT (LIST (QUOTE (ELIMINATEISOMORPHS HAS RECEIVED))
                       (LENGTH LL)
                       (QUOTE (ITEMS AND))
                       (LENGTH UNIQUE)
                       (QUOTE (UNIQUE ITEMS]
          [FOR NEW S IN LL
             DO (COND
                  ((FOR NEW U IN UNIQUE AS NEW JJ :=(1 9000)
                      WHEN (ISIT (CTABLE U)
                                 (CTABLE S)) DO (SETQ COUNT1 JJ)
                                                (RETURN U)))
                  (T (SETQ UNIQUE (CONS S UNIQUE]
          (PRINT (LIST (QUOTE RETURNING)
                       (LENGTH UNIQUE)
                       (QUOTE ENTRIES)))
          (RETURN UNIQUE])

(MERGEEDGELIST
  [LAMBDA (EL STRUC)
    (PROGN (FOR NEW EDGE IN EL PROG2 (MAPRINT (LIST (QUOTE EL)
                                                    (QUOTE =)
                                                    EL))
                            (TERPRI)
                            (SETQ STRUC (MERGETRIVS (CAR EDGE)
                                                    (CDR EDGE)
                                                    STRUC])

(MAKEQUADS
  [LAMBDA (N STRUC)
    (FOR NEW LAB
       IN [[LAMBDA (X)
              (PRINT (QUOTE (# OF LABELLINGS)))
              (PRINT (LENGTH X))
              X]
            (LABELEDGES STRUC (LIST N (DIFFERENCE (LENGTH (EDGES STRUC))
                                                  N]
       WHEN (VALIDEDGELIST (CAAR LAB)
                           STRUC)
            LIST
            (NORMNUMBERING (MERGEEDGELIST (CAAR LAB)
                                          (COPYSTRUC STRUC])

(VALIDEDGELIST
  [LAMBDA (EL STRUC)
    (AND (FOR NEW E IN EL AND (EQP (CONNECTIVITY (CAR E)
                                                 (CDR E)
                                                 STRUC)
                                   1))
         (EQUAL (TWICE (LENGTH EL))
                (LENGTH ([LAMBDA (X)
                            (INTERSECTION X X]
                          (FOR NEW E IN EL APPEND (LIST (CAR E)
                                                        (CDR E])

(JLGEN
  [LAMBDA (N STRUC UNIQUE)
    (PROGN (COND
             ((STRUCTURE? STRUC)
               (MAKEQUADS N STRUC))
             (T (FOR NEW S IN STRUC APPEND (PRINT (UGRAPH S))
                              (TERPRI)
                              (JLGEN N S])

(JLGENSEQ
  [LAMBDA (N STRUCLIST)
    (PROG NIL
          (OUTPUT (OUTFILE (QUOTE GENFILE)))
          (FOR NEW STRUC IN STRUCLIST
             DO (PRINT (UGRAPH STRUC))
                [PRINT (LENGTH (PRINT (JLGEN N STRUC)
                                      (QUOTE GENFILE]
                (TERPRI)
                (TERPRI))
          (PRINT (QUOTE STOP)
                 (QUOTE GENFILE))
          (CLOSEF (QUOTE GENFILE))
          (INPUT (INFILE (QUOTE GENFILE)))
          (FOR NEW I :=(1 99)
               AS X IS (READ (QUOTE GENFILE))
             DO (PRINT (QUOTE **READING**))
                (PRINT (LENGTH X))
                (COND
                  ((NOT (EQ (QUOTE STOP)
                            X))
                    (SETQ QUADLIST (UNIQUE1 X QUADLIST)))
                  (T (RETURN QUADLIST])

(CHECKDRAW
  [LAMBDA (STRUCLIST NUM)
    (FOR NEW STRUC IN STRUCLIST AS NEW N :=((OR NUM 1)
                       9999) DO (TERPRI)
                                (PRINT (LIST (QUOTE *STRUCTURE*)
                                             N))
                                (COND
                                  ((MEMBER (UGRAPH STRUC)
                                           GAUCHECODES)
                                    (PRINT (QUOTE ****GAUCHE****))
                                    (PRINT (UGRAPH STRUC))
                                    (TERPRI)
                                    (DRAWS STRUC))
                                  (T (DRAW STRUC])

(PDRAW
  [LAMBDA (SL)
    [COND
      ((STRUCTURE? (CAR SL))
        (CHECKDRAW SL))
      (T (FOR NEW SLI IN SL AS NEW NUM IS NUM
            DO (TERPRI)
               (PRINT (QUOTE ******CASE******))
               (PRINT (LIST (CAAR SLI)
                            (QUOTE DOUBLE)
                            (QUOTE BOND)))
               (PRINT (LIST (CADAR SLI)
                            (QUOTE TRIPLE)
                            (QUOTE BOND)))
               (TERPRI)
               (CHECKDRAW (CDR SLI))
               (SETQ NUM (PLUS NUM (LENGTH (CDR SLI]
    (QUOTE **********FINIS********])
)
  (RPAQQ MATCHNUM 0)
  (RPAQQ STRUCTURE ((CTENTRY 1 (NIL)
                             6 4 2)
          (CTENTRY 2 (NIL)
                   3 5 1)
          (CTENTRY 3 (NIL)
                   6 2 6 4)
          (CTENTRY 4 (NIL)
                   1 3 5)
          (CTENTRY 5 (NIL)
                   2 4 6)
          (CTENTRY 6 (NIL)
                   1 3 3 5)))
  [RPAQQ CATALOG-LIST
         (((STRUCTURE ((CTENTRY 2 (NIL)
                                1 1 1)
                       (CTENTRY 1 (NIL)
                                2 2 2))
                      (2 A)
                      2 NIL))
          [(STRUCTURE ((CTENTRY 4 (NIL)
                                2 1 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                4 3 1)
                       (CTENTRY 1 (NIL)
                                3 4 2))
                      (4 B B)
                      4
                      ((4 3 2 1))
                      ((3 4 2 1))
                      ((4 2 3 1))
                      ((2 4 3 1))
                      ((3 2 4 1))
                      ((2 3 4 1))
                      ((4 3 1 2))
                      ((3 4 1 2))
                      ((4 1 3 2))
                      ((1 4 3 2))
                      ((3 1 4 2))
                      ((1 3 4 2))
                      ((4 2 1 3))
                      ((2 4 1 3))
                      ((4 1 2 3))
                      ((1 4 2 3))
                      ((2 1 4 3))
                      ((1 2 4 3))
                      ((3 2 1 4))
                      ((2 3 1 4))
                      ((3 1 2 4))
                      ((1 3 2 4))
                      ((2 1 3 4))
                      ((1 2 3 4)))
           (STRUCTURE ((CTENTRY 4 (NIL)
                                3 1 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 4 2))
                      (4 A A)
                      4
                      ((4 3 2 1))
                      ((4 3 2 1))
                      ((3 4 1 2))
                      ((2 1 4 3))
                      ((1 2 3 4]
          ((STRUCTURE ((CTENTRY 6 (NIL)
                                4 1 5)
                       (CTENTRY 5 (NIL)
                                2 6 4)
                       (CTENTRY 4 (NIL)
                                6 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                5 3 1)
                       (CTENTRY 1 (NIL)
                                3 6 2))
                      (6 B C B)
                      6 NIL)
           (STRUCTURE ((CTENTRY 6 (NIL)
                                5 1 5)
                       (CTENTRY 5 (NIL)
                                6 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 6 2))
                      (6 A A A)
                      6
                      ((6 5 4 3 2 1))
                      ((3 4 5 6 1 2))
                      ((2 1 6 5 4 3))
                      ((5 6 1 2 3 4))
                      ((4 3 2 1 6 5))
                      ((1 2 3 4 5 6)))
           (STRUCTURE ((CTENTRY 6 (NIL)
                                4 1 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                6 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 6 2))
                      (6 A B B)
                      6
                      ((6 5 4 3 2 1))
                      ((6 4 5 3 2 1))
                      ((3 5 4 6 1 2))
                      ((3 4 5 6 1 2)))
           (STRUCTURE ((CTENTRY 6 (NIL)
                                3 1 5)
                       (CTENTRY 5 (NIL)
                                4 6 4)
                       (CTENTRY 4 (NIL)
                                5 5 3)
                       (CTENTRY 3 (NIL)
                                6 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 6 2))
                      (6 A C A)
                      6 NIL)
           (STRUCTURE ((CTENTRY 6 (NIL)
                                3 1 5)
                       (CTENTRY 5 (NIL)
                                2 6 4)
                       (CTENTRY 4 (NIL)
                                1 5 3)
                       (CTENTRY 3 (NIL)
                                6 4 2)
                       (CTENTRY 2 (NIL)
                                5 3 1)
                       (CTENTRY 1 (NIL)
                                4 6 2))
                      (6 C C C)
                      6 NIL))
          [(STRUCTURE ((CTENTRY 8 (NIL)
                                6 1 7)
                       (CTENTRY 7 (NIL)
                                4 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                2 6 4)
                       (CTENTRY 4 (NIL)
                                7 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                5 3 1)
                       (CTENTRY 1 (NIL)
                                3 8 2))
                      (8 B C C B)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((8 6 7 4 5 2 3 1))
                      ((1 3 2 5 4 7 6 8))
                      ((1 2 3 4 5 6 7 8)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                5 1 7)
                       (CTENTRY 7 (NIL)
                                2 8 6)
                       (CTENTRY 6 (NIL)
                                3 7 5)
                       (CTENTRY 5 (NIL)
                                8 6 4)
                       (CTENTRY 4 (NIL)
                                1 5 3)
                       (CTENTRY 3 (NIL)
                                6 4 2)
                       (CTENTRY 2 (NIL)
                                7 3 1)
                       (CTENTRY 1 (NIL)
                                4 8 2))
                      (8 C E C C)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((4 3 6 5 8 7 2 1))
                      ((8 5 6 7 2 3 4 1))
                      ((2 3 6 7 8 5 4 1))
                      ((2 7 6 3 4 5 8 1))
                      ((4 5 6 3 2 7 8 1))
                      ((7 8 5 6 3 4 1 2))
                      ((3 4 5 6 7 8 1 2))
                      ((7 6 5 8 1 4 3 2))
                      ((1 4 5 8 7 6 3 2))
                      ((1 8 5 4 3 6 7 2))
                      ((3 6 5 4 1 8 7 2))
                      ((6 7 8 5 4 1 2 3))
                      ((4 1 8 5 6 7 2 3))
                      ((6 5 8 7 2 1 4 3))
                      ((2 1 8 7 6 5 4 3))
                      ((2 7 8 1 4 5 6 3))
                      ((4 5 8 1 2 7 6 3))
                      ((5 8 7 6 3 2 1 4))
                      ((3 2 7 6 5 8 1 4))
                      ((5 6 7 8 1 2 3 4))
                      ((1 2 7 8 5 6 3 4))
                      ((1 8 7 2 3 6 5 4))
                      ((3 6 7 2 1 8 5 4))
                      ((6 3 2 7 8 1 4 5))
                      ((8 1 2 7 6 3 4 5))
                      ((8 7 2 1 4 3 6 5))
                      ((4 3 2 1 8 7 6 5))
                      ((6 7 2 3 4 1 8 5))
                      ((4 1 2 3 6 7 8 5))
                      ((5 4 1 8 7 2 3 6))
                      ((7 2 1 8 5 4 3 6))
                      ((7 8 1 2 3 4 5 6))
                      ((3 4 1 2 7 8 5 6))
                      ((5 8 1 4 3 2 7 6))
                      ((3 2 1 4 5 8 7 6))
                      ((6 3 4 5 8 1 2 7))
                      ((8 1 4 5 6 3 2 7))
                      ((8 5 4 1 2 3 6 7))
                      ((2 3 4 1 8 5 6 7))
                      ((6 5 4 3 2 1 8 7))
                      ((2 1 4 3 6 5 8 7))
                      ((5 4 3 6 7 2 1 8))
                      ((7 2 3 6 5 4 1 8))
                      ((7 6 3 2 1 4 5 8))
                      ((1 4 3 2 7 6 5 8))
                      ((5 6 3 4 1 2 7 8))
                      ((1 2 3 4 5 6 7 8)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                7 1 7)
                       (CTENTRY 7 (NIL)
                                8 8 6)
                       (CTENTRY 6 (NIL)
                                5 7 5)
                       (CTENTRY 5 (NIL)
                                6 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 8 2))
                      (8 A A A A)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((3 4 5 6 7 8 1 2))
                      ((2 1 8 7 6 5 4 3))
                      ((5 6 7 8 1 2 3 4))
                      ((4 3 2 1 8 7 6 5))
                      ((7 8 1 2 3 4 5 6))
                      ((6 5 4 3 2 1 8 7))
                      ((1 2 3 4 5 6 7 8)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                6 1 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 8 2))
                      (8 A A B B)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((8 6 7 5 4 3 2 1))
                      ((5 7 6 8 1 2 3 4))
                      ((5 6 7 8 1 2 3 4)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                5 1 7)
                       (CTENTRY 7 (NIL)
                                6 8 6)
                       (CTENTRY 6 (NIL)
                                7 7 5)
                       (CTENTRY 5 (NIL)
                                8 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 8 2))
                      (8 A A C A)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((5 6 7 8 1 2 3 4)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                6 1 7)
                       (CTENTRY 7 (NIL)
                                4 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                7 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 8 2))
                      (8 A B C B)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((8 6 7 4 5 3 2 1))
                      ((3 5 4 7 6 8 1 2))
                      ((3 4 5 6 7 8 1 2)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                4 1 7)
                       (CTENTRY 7 (NIL)
                                6 8 6)
                       (CTENTRY 6 (NIL)
                                7 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                8 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 8 2))
                      (8 A B D A)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((8 1 2 3 4 5 6 7)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                4 1 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                3 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                8 5 3)
                       (CTENTRY 3 (NIL)
                                6 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 8 2))
                      (8 A C D B)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((3 6 7 5 4 8 1 2)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                4 1 7)
                       (CTENTRY 7 (NIL)
                                3 8 6)
                       (CTENTRY 6 (NIL)
                                5 7 5)
                       (CTENTRY 5 (NIL)
                                6 6 4)
                       (CTENTRY 4 (NIL)
                                8 5 3)
                       (CTENTRY 3 (NIL)
                                7 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 8 2))
                      (8 A D D A)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((8 4 5 6 7 3 2 1))
                      ((3 7 6 5 4 8 1 2))
                      ((3 4 5 6 7 8 1 2))
                      ((4 8 1 2 3 7 6 5))
                      ((4 3 2 1 8 7 6 5))
                      ((7 8 1 2 3 4 5 6))
                      ((7 3 2 1 8 4 5 6)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                3 1 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                4 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                6 5 3)
                       (CTENTRY 3 (NIL)
                                8 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 8 2))
                      (8 A E B B)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((8 7 5 6 4 3 2 1))
                      ((3 4 6 5 7 8 1 2))
                      ((3 4 5 6 7 8 1 2)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                3 1 7)
                       (CTENTRY 7 (NIL)
                                4 8 6)
                       (CTENTRY 6 (NIL)
                                5 7 5)
                       (CTENTRY 5 (NIL)
                                6 6 4)
                       (CTENTRY 4 (NIL)
                                7 5 3)
                       (CTENTRY 3 (NIL)
                                8 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 8 2))
                      (8 A E C A)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((3 4 5 6 7 8 1 2))
                      ((4 3 2 1 8 7 6 5))
                      ((7 8 1 2 3 4 5 6)))
           (STRUCTURE ((CTENTRY 8 (NIL)
                                6 1 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                2 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                4 3 1)
                       (CTENTRY 1 (NIL)
                                3 8 2))
                      (8 B B B B)
                      8
                      ((8 7 6 5 4 3 2 1))
                      ((8 6 7 5 4 3 2 1))
                      ((8 7 6 5 4 2 3 1))
                      ((8 6 7 5 4 2 3 1))
                      ((5 7 6 8 1 3 2 4))
                      ((5 6 7 8 1 3 2 4))
                      ((5 7 6 8 1 2 3 4))
                      ((5 6 7 8 1 2 3 4))
                      ((4 3 2 1 8 7 6 5))
                      ((4 2 3 1 8 7 6 5))
                      ((4 3 2 1 8 6 7 5))
                      ((4 2 3 1 8 6 7 5))
                      ((1 3 2 4 5 7 6 8))
                      ((1 2 3 4 5 7 6 8))
                      ((1 3 2 4 5 6 7 8))
                      ((1 2 3 4 5 6 7 8]
          ((STRUCTURE ((CTENTRY 10 (NIL)
                                8 1 9)
                       (CTENTRY 9 (NIL)
                                6 10 8)
                       (CTENTRY 8 (NIL)
                                10 9 7)
                       (CTENTRY 7 (NIL)
                                4 8 6)
                       (CTENTRY 6 (NIL)
                                9 7 5)
                       (CTENTRY 5 (NIL)
                                2 6 4)
                       (CTENTRY 4 (NIL)
                                7 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                5 3 1)
                       (CTENTRY 1 (NIL)
                                3 10 2))
                      (10 B C C C B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 8 9 6 7 4 5 2 3 1))
                      ((1 3 2 5 4 7 6 9 8 10))
                      ((1 2 3 4 5 6 7 8 9 10)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                6 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                4 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                10 7 5)
                       (CTENTRY 5 (NIL)
                                2 6 4)
                       (CTENTRY 4 (NIL)
                                8 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                5 3 1)
                       (CTENTRY 1 (NIL)
                                3 10 2))
                      (10 B C D D B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((4 3 1 2 5 6 10 9 7 8)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                8 1 9)
                       (CTENTRY 9 (NIL)
                                4 10 8)
                       (CTENTRY 8 (NIL)
                                10 9 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                2 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                9 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                6 3 1)
                       (CTENTRY 1 (NIL)
                                3 10 2))
                      (10 B D E B B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((6 5 7 8 10 9 4 3 1 2))
                      ((2 3 1 10 8 9 4 5 7 6))
                      ((8 9 10 1 2 3 4 5 6 7))
                      ((7 5 6 2 1 3 4 9 10 8))
                      ((1 3 2 6 7 5 4 9 8 10)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                7 1 9)
                       (CTENTRY 9 (NIL)
                                4 10 8)
                       (CTENTRY 8 (NIL)
                                5 9 7)
                       (CTENTRY 7 (NIL)
                                10 8 6)
                       (CTENTRY 6 (NIL)
                                2 7 5)
                       (CTENTRY 5 (NIL)
                                8 6 4)
                       (CTENTRY 4 (NIL)
                                9 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                6 3 1)
                       (CTENTRY 1 (NIL)
                                3 10 2))
                      (10 B D E C C)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 7 8 9 4 5 6 2 3 1))
                      ((6 5 8 7 10 9 4 3 1 2))
                      ((6 7 8 5 4 9 10 1 3 2))
                      ((4 5 8 9 10 7 6 2 1 3))
                      ((4 9 8 5 6 7 10 1 2 3)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                5 1 9)
                       (CTENTRY 9 (NIL)
                                6 10 8)
                       (CTENTRY 8 (NIL)
                                2 9 7)
                       (CTENTRY 7 (NIL)
                                3 8 6)
                       (CTENTRY 6 (NIL)
                                9 7 5)
                       (CTENTRY 5 (NIL)
                                10 6 4)
                       (CTENTRY 4 (NIL)
                                1 5 3)
                       (CTENTRY 3 (NIL)
                                7 4 2)
                       (CTENTRY 2 (NIL)
                                8 3 1)
                       (CTENTRY 1 (NIL)
                                4 10 2))
                      (10 C F D E C)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((2 8 9 6 7 3 4 5 10 1))
                      ((8 9 10 5 6 7 3 4 1 2))
                      ((1 10 9 6 5 4 3 7 8 2))
                      ((7 6 5 10 9 8 2 1 4 3))
                      ((4 5 6 9 10 1 2 8 7 3))
                      ((5 6 7 8 9 10 1 2 3 4))
                      ((3 7 6 9 8 2 1 10 5 4))
                      ((6 7 3 2 8 9 10 1 4 5))
                      ((4 3 7 8 2 1 10 9 6 5))
                      ((7 3 4 1 2 8 9 10 5 6))
                      ((5 4 3 2 1 10 9 8 7 6))
                      ((6 5 4 1 10 9 8 2 3 7))
                      ((3 4 5 10 1 2 8 9 6 7))
                      ((9 10 1 4 5 6 7 3 2 8))
                      ((2 1 10 5 4 3 7 6 9 8))
                      ((10 1 2 3 4 5 6 7 8 9))
                      ((8 2 1 4 3 7 6 5 10 9))
                      ((9 8 2 3 7 6 5 4 1 10))
                      ((1 2 8 7 3 4 5 6 9 10)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                9 1 9)
                       (CTENTRY 9 (NIL)
                                10 10 8)
                       (CTENTRY 8 (NIL)
                                7 9 7)
                       (CTENTRY 7 (NIL)
                                8 8 6)
                       (CTENTRY 6 (NIL)
                                5 7 5)
                       (CTENTRY 5 (NIL)
                                6 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A A A A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((3 4 5 6 7 8 9 10 1 2))
                      ((2 1 10 9 8 7 6 5 4 3))
                      ((5 6 7 8 9 10 1 2 3 4))
                      ((4 3 2 1 10 9 8 7 6 5))
                      ((7 8 9 10 1 2 3 4 5 6))
                      ((6 5 4 3 2 1 10 9 8 7))
                      ((9 10 1 2 3 4 5 6 7 8))
                      ((8 7 6 5 4 3 2 1 10 9))
                      ((1 2 3 4 5 6 7 8 9 10)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                8 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                10 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                5 7 5)
                       (CTENTRY 5 (NIL)
                                6 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A A B B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 8 9 7 6 5 4 3 2 1))
                      ((7 9 8 10 1 2 3 4 5 6))
                      ((7 8 9 10 1 2 3 4 5 6)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                7 1 9)
                       (CTENTRY 9 (NIL)
                                8 10 8)
                       (CTENTRY 8 (NIL)
                                9 9 7)
                       (CTENTRY 7 (NIL)
                                10 8 6)
                       (CTENTRY 6 (NIL)
                                5 7 5)
                       (CTENTRY 5 (NIL)
                                6 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A A C A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((7 8 9 10 1 2 3 4 5 6)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                8 1 9)
                       (CTENTRY 9 (NIL)
                                6 10 8)
                       (CTENTRY 8 (NIL)
                                10 9 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                9 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A B C B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 8 9 6 7 5 4 3 2 1))
                      ((5 7 6 9 8 10 1 2 3 4))
                      ((5 6 7 8 9 10 1 2 3 4)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                6 1 9)
                       (CTENTRY 9 (NIL)
                                8 10 8)
                       (CTENTRY 8 (NIL)
                                9 9 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                10 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A B D A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                6 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                5 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                10 7 5)
                       (CTENTRY 5 (NIL)
                                8 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A C D B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((5 8 9 7 6 10 1 2 3 4)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                6 1 9)
                       (CTENTRY 9 (NIL)
                                5 10 8)
                       (CTENTRY 8 (NIL)
                                7 9 7)
                       (CTENTRY 7 (NIL)
                                8 8 6)
                       (CTENTRY 6 (NIL)
                                10 7 5)
                       (CTENTRY 5 (NIL)
                                9 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A D D A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 6 7 8 9 5 4 3 2 1))
                      ((5 9 8 7 6 10 1 2 3 4))
                      ((5 6 7 8 9 10 1 2 3 4)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                5 1 9)
                       (CTENTRY 9 (NIL)
                                8 10 8)
                       (CTENTRY 8 (NIL)
                                9 9 7)
                       (CTENTRY 7 (NIL)
                                6 8 6)
                       (CTENTRY 6 (NIL)
                                7 7 5)
                       (CTENTRY 5 (NIL)
                                10 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A E A A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((5 6 7 8 9 10 1 2 3 4))
                      ((5 4 3 2 1 10 9 8 7 6))
                      ((10 1 2 3 4 5 6 7 8 9)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                5 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                6 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                10 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A E B B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 9 7 8 6 5 4 3 2 1))
                      ((5 6 8 7 9 10 1 2 3 4))
                      ((5 6 7 8 9 10 1 2 3 4)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                5 1 9)
                       (CTENTRY 9 (NIL)
                                6 10 8)
                       (CTENTRY 8 (NIL)
                                7 9 7)
                       (CTENTRY 7 (NIL)
                                8 8 6)
                       (CTENTRY 6 (NIL)
                                9 7 5)
                       (CTENTRY 5 (NIL)
                                10 6 4)
                       (CTENTRY 4 (NIL)
                                3 5 3)
                       (CTENTRY 3 (NIL)
                                4 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A A E C A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((5 6 7 8 9 10 1 2 3 4)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                8 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                10 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                4 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                6 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A B B B B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 8 9 7 6 5 4 3 2 1))
                      ((10 9 8 7 6 4 5 3 2 1))
                      ((10 8 9 7 6 4 5 3 2 1))
                      ((3 5 4 6 7 9 8 10 1 2))
                      ((3 4 5 6 7 9 8 10 1 2))
                      ((3 5 4 6 7 8 9 10 1 2))
                      ((3 4 5 6 7 8 9 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                7 1 9)
                       (CTENTRY 9 (NIL)
                                8 10 8)
                       (CTENTRY 8 (NIL)
                                9 9 7)
                       (CTENTRY 7 (NIL)
                                10 8 6)
                       (CTENTRY 6 (NIL)
                                4 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                6 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A B B C A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 9 8 7 6 4 5 3 2 1)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                8 1 9)
                       (CTENTRY 9 (NIL)
                                6 10 8)
                       (CTENTRY 8 (NIL)
                                10 9 7)
                       (CTENTRY 7 (NIL)
                                4 8 6)
                       (CTENTRY 6 (NIL)
                                9 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                7 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A B C C B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 8 9 6 7 4 5 3 2 1))
                      ((3 5 4 7 6 9 8 10 1 2))
                      ((3 4 5 6 7 8 9 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                6 1 9)
                       (CTENTRY 9 (NIL)
                                8 10 8)
                       (CTENTRY 8 (NIL)
                                9 9 7)
                       (CTENTRY 7 (NIL)
                                4 8 6)
                       (CTENTRY 6 (NIL)
                                10 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                7 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A B C D A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                6 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                4 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                10 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                8 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A B D D B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                8 1 9)
                       (CTENTRY 9 (NIL)
                                4 10 8)
                       (CTENTRY 8 (NIL)
                                10 9 7)
                       (CTENTRY 7 (NIL)
                                6 8 6)
                       (CTENTRY 6 (NIL)
                                7 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                9 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A B E A B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((3 4 5 6 7 8 9 10 1 2))
                      ((5 4 3 2 1 10 9 8 7 6))
                      ((8 9 10 1 2 3 4 5 6 7)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                6 1 9)
                       (CTENTRY 9 (NIL)
                                4 10 8)
                       (CTENTRY 8 (NIL)
                                7 9 7)
                       (CTENTRY 7 (NIL)
                                8 8 6)
                       (CTENTRY 6 (NIL)
                                10 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                9 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A B E D A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 6 7 8 9 4 5 3 2 1)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                4 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                6 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                10 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A B F B B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 9 7 8 6 5 4 3 2 1)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                4 1 9)
                       (CTENTRY 9 (NIL)
                                6 10 8)
                       (CTENTRY 8 (NIL)
                                7 9 7)
                       (CTENTRY 7 (NIL)
                                8 8 6)
                       (CTENTRY 6 (NIL)
                                9 7 5)
                       (CTENTRY 5 (NIL)
                                3 6 4)
                       (CTENTRY 4 (NIL)
                                10 5 3)
                       (CTENTRY 3 (NIL)
                                5 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A B F C A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                7 1 9)
                       (CTENTRY 9 (NIL)
                                8 10 8)
                       (CTENTRY 8 (NIL)
                                9 9 7)
                       (CTENTRY 7 (NIL)
                                10 8 6)
                       (CTENTRY 6 (NIL)
                                3 7 5)
                       (CTENTRY 5 (NIL)
                                4 6 4)
                       (CTENTRY 4 (NIL)
                                5 5 3)
                       (CTENTRY 3 (NIL)
                                6 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A C A C A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((3 4 5 6 7 8 9 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                7 1 9)
                       (CTENTRY 9 (NIL)
                                4 10 8)
                       (CTENTRY 8 (NIL)
                                5 9 7)
                       (CTENTRY 7 (NIL)
                                10 8 6)
                       (CTENTRY 6 (NIL)
                                3 7 5)
                       (CTENTRY 5 (NIL)
                                8 6 4)
                       (CTENTRY 4 (NIL)
                                9 5 3)
                       (CTENTRY 3 (NIL)
                                6 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A C E C C)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 7 8 9 4 5 6 3 2 1))
                      ((3 6 5 4 9 8 7 10 1 2))
                      ((3 4 5 6 7 8 9 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                4 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                5 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                3 7 5)
                       (CTENTRY 5 (NIL)
                                8 6 4)
                       (CTENTRY 4 (NIL)
                                10 5 3)
                       (CTENTRY 3 (NIL)
                                6 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A C F C B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                4 1 9)
                       (CTENTRY 9 (NIL)
                                5 10 8)
                       (CTENTRY 8 (NIL)
                                7 9 7)
                       (CTENTRY 7 (NIL)
                                8 8 6)
                       (CTENTRY 6 (NIL)
                                3 7 5)
                       (CTENTRY 5 (NIL)
                                9 6 4)
                       (CTENTRY 4 (NIL)
                                10 5 3)
                       (CTENTRY 3 (NIL)
                                6 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A C F D A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((3 6 7 8 9 5 4 10 1 2))
                      ((6 3 2 1 10 4 5 9 8 7))
                      ((9 10 1 2 3 4 5 6 7 8)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                6 1 9)
                       (CTENTRY 9 (NIL)
                                8 10 8)
                       (CTENTRY 8 (NIL)
                                9 9 7)
                       (CTENTRY 7 (NIL)
                                3 8 6)
                       (CTENTRY 6 (NIL)
                                10 7 5)
                       (CTENTRY 5 (NIL)
                                4 6 4)
                       (CTENTRY 4 (NIL)
                                5 5 3)
                       (CTENTRY 3 (NIL)
                                7 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A D A D A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((3 4 5 6 7 8 9 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                5 1 9)
                       (CTENTRY 9 (NIL)
                                8 10 8)
                       (CTENTRY 8 (NIL)
                                9 9 7)
                       (CTENTRY 7 (NIL)
                                3 8 6)
                       (CTENTRY 6 (NIL)
                                4 7 5)
                       (CTENTRY 5 (NIL)
                                10 6 4)
                       (CTENTRY 4 (NIL)
                                6 5 3)
                       (CTENTRY 3 (NIL)
                                7 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A D B E A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 1 2 3 4 5 6 7 8 9)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                5 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                3 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                4 7 5)
                       (CTENTRY 5 (NIL)
                                10 6 4)
                       (CTENTRY 4 (NIL)
                                6 5 3)
                       (CTENTRY 3 (NIL)
                                8 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A E B E B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 5 4 6 7 9 8 3 2 1))
                      ((3 8 9 7 6 4 5 10 1 2))
                      ((3 4 5 6 7 8 9 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                5 1 9)
                       (CTENTRY 9 (NIL)
                                3 10 8)
                       (CTENTRY 8 (NIL)
                                6 9 7)
                       (CTENTRY 7 (NIL)
                                4 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                10 6 4)
                       (CTENTRY 4 (NIL)
                                7 5 3)
                       (CTENTRY 3 (NIL)
                                9 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A F C E B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((3 9 8 6 7 4 5 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                5 1 9)
                       (CTENTRY 9 (NIL)
                                3 10 8)
                       (CTENTRY 8 (NIL)
                                4 9 7)
                       (CTENTRY 7 (NIL)
                                6 8 6)
                       (CTENTRY 6 (NIL)
                                7 7 5)
                       (CTENTRY 5 (NIL)
                                10 6 4)
                       (CTENTRY 4 (NIL)
                                8 5 3)
                       (CTENTRY 3 (NIL)
                                9 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A F D E A)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((5 4 3 2 1 10 9 8 7 6)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                4 1 9)
                       (CTENTRY 9 (NIL)
                                3 10 8)
                       (CTENTRY 8 (NIL)
                                6 9 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                10 5 3)
                       (CTENTRY 3 (NIL)
                                9 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A F F B B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 9 8 6 7 5 4 3 2 1))
                      ((10 4 5 7 6 8 9 3 2 1))
                      ((10 4 5 6 7 8 9 3 2 1))
                      ((3 9 8 7 6 5 4 10 1 2))
                      ((3 9 8 6 7 5 4 10 1 2))
                      ((3 4 5 7 6 8 9 10 1 2))
                      ((3 4 5 6 7 8 9 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                3 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                5 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                4 7 5)
                       (CTENTRY 5 (NIL)
                                8 6 4)
                       (CTENTRY 4 (NIL)
                                6 5 3)
                       (CTENTRY 3 (NIL)
                                10 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A G B C B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((10 9 7 8 5 6 4 3 2 1))
                      ((3 4 6 5 8 7 9 10 1 2))
                      ((3 4 5 6 7 8 9 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                3 1 9)
                       (CTENTRY 9 (NIL)
                                5 10 8)
                       (CTENTRY 8 (NIL)
                                6 9 7)
                       (CTENTRY 7 (NIL)
                                4 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                9 6 4)
                       (CTENTRY 4 (NIL)
                                7 5 3)
                       (CTENTRY 3 (NIL)
                                10 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A G C D B)
                      10
                      ((10 9 8 7 6 5 4 3 2 1))
                      ((3 4 7 8 6 5 9 10 1 2)))
           (STRUCTURE ((CTENTRY 10 (NIL)
                                3 1 9)
                       (CTENTRY 9 (NIL)
                                5 10 8)
                       (CTENTRY 8 (NIL)
                                4 9 7)
                       (CTENTRY 7 (NIL)
                                6 8 6)
                       (CTENTRY 6 (NIL)
                                7 7 5)
                       (CTENTRY 5 (NIL)
                                9 6 4)
                       (CTENTRY 4 (NIL)
                                8 5 3)
                       (CTENTRY 3 (NIL)
                                10 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A G D D A)
                      10 NIL)
           (STRUCTURE ((CTENTRY 10 (NIL)
                                3 1 9)
                       (CTENTRY 9 (NIL)
                                4 10 8)
                       (CTENTRY 8 (NIL)
                                6 9 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                9 5 3)
                       (CTENTRY 3 (NIL)
                                10 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A G E B B)
                      10 NIL)
           (STRUCTURE ((CTENTRY 10 (NIL)
                                3 1 9)
                       (CTENTRY 9 (NIL)
                                4 10 8)
                       (CTENTRY 8 (NIL)
                                5 9 7)
                       (CTENTRY 7 (NIL)
                                6 8 6)
                       (CTENTRY 6 (NIL)
                                7 7 5)
                       (CTENTRY 5 (NIL)
                                8 6 4)
                       (CTENTRY 4 (NIL)
                                9 5 3)
                       (CTENTRY 3 (NIL)
                                10 4 2)
                       (CTENTRY 2 (NIL)
                                1 3 1)
                       (CTENTRY 1 (NIL)
                                2 10 2))
                      (10 A G E C A)
                      10 NIL)
           (STRUCTURE ((CTENTRY 10 (NIL)
                                8 1 9)
                       (CTENTRY 9 (NIL)
                                6 10 8)
                       (CTENTRY 8 (NIL)
                                10 9 7)
                       (CTENTRY 7 (NIL)
                                5 8 6)
                       (CTENTRY 6 (NIL)
                                9 7 5)
                       (CTENTRY 5 (NIL)
                                7 6 4)
                       (CTENTRY 4 (NIL)
                                2 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                4 3 1)
                       (CTENTRY 1 (NIL)
                                3 10 2))
                      (10 B B B C B)
                      10 NIL)
           (STRUCTURE ((CTENTRY 10 (NIL)
                                6 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                5 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                10 7 5)
                       (CTENTRY 5 (NIL)
                                8 6 4)
                       (CTENTRY 4 (NIL)
                                2 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                4 3 1)
                       (CTENTRY 1 (NIL)
                                3 10 2))
                      (10 B B C D B)
                      10 NIL)
           (STRUCTURE ((CTENTRY 10 (NIL)
                                5 1 9)
                       (CTENTRY 9 (NIL)
                                7 10 8)
                       (CTENTRY 8 (NIL)
                                6 9 7)
                       (CTENTRY 7 (NIL)
                                9 8 6)
                       (CTENTRY 6 (NIL)
                                8 7 5)
                       (CTENTRY 5 (NIL)
                                10 6 4)
                       (CTENTRY 4 (NIL)
                                2 5 3)
                       (CTENTRY 3 (NIL)
                                1 4 2)
                       (CTENTRY 2 (NIL)
                                4 3 1)
                       (CTENTRY 1 (NIL)
                                3 10 2))
                      (10 B B E B B)
                      10 NIL]
  (RPAQQ GAUCHECODES ((8 A C C C)
          (8 B D C C)
          (8 D D D D)))
STOP